AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAA AAA 
AAA ABR 
AAA AAA 
AAA ALA 
AAA Bib 
slat AA 
Aba AAA 
AAA AAA 
RRA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAR AAA 
AKA ABA 
ALB AAA 
RAR AAA 
AAA AAA 
bhh ABA 
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000000 BBBBBBBB JJ TITTTTTTIT IIIII1 RRRRRRRR 
000000 BBBBBBBB JJ TITTTTTTTT II1I11 RRRRRRRR 
00 0O 6B BB JJ TT Il RR RR 
00 00 88 BB JJ TT I] RR RR 
00 00 68 BB JJ TT II RR RR 
00 00 8B BB JJ TT I] RR RR 

00 00 88888888 JJ TT Il RRRRRRRR 
00 00 88888688 JJ TT II RRRRRRRR 

00 oO 8B BB JJ JJ TT Il RR RR 

00 00 BB BB JJ JJ TT I] RR RR 

00 00 88 BB JJ JJ TT Il RR RR 

00 6B BB JJ JJ TT Il RR RR 

000000 BBBBBBBB JIJJIJ TT T1111 RR RR 
000000 BBBBBBBB JJJIJJ TT IIII11 RR RR 
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3:4 
1:5 


4:4] VAX=11_ BLiss=32_v4.0-742 p 
2:38 — CANALYZ.SRCJOBJTIR.832;1 “er 


message symbols are unique across alT ANALYZEs. This 
is necessitated by the new merged message files. 


0001 0 Ztitle ‘OBJTIR = Analyze TIR/DBG/TBT Object Records’ 
404 0 module objtir 
0005 1 ident='V04-000") = begin 
0004 1 
0005 1! 
sie] 1 SRE REAR RAAERAE AEE AEEAAEEAE RAHAT AEARA ETAT ETE AEATAEEAREREREREAHEA REAR 
0 1 !e 
0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
Beto : ¢ ALL RIGHTS RESERVED. * 
‘* * 
Bog 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SU LICENSE AND WITH THE * 
0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i FA : >» TRANSFERRED. * 
'* ® 
0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
pos) : :* CORPORATION. * 
:* ® 
B05z 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
OoSe : fe SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
‘® ® 
0026 1 !* * 
0027 1 See RRR EERE REAR R RARER EAE EAE EERE AAA AAA EERE KEE 
0028 1! 
0029 1 
0030 1 !++ | . 
Oss : } Facility: VAX/VMS Analyze Facility, Analyze TIR/DBG/TBT Object Records 
0033 1 ! Abstract: This module is responsible for analyzing the TIR and 
0034 1! associated object records: ; 
0035 1! D Debugger Information Records 
0036 1! TBT Traceback Information Records 
0037 1! TIR Text Information/Relocation Records 
0038 1! 
0039 1! , 
0040 1 ! Environment: 
0041 1! 
94 ' Author: Paul C. Anagnostopoulos, Creation Date: 16 January 1980 
0044 1 ! Modified By: 
0045 1! t 
0046 1! v03-002 MCNO158 Maria del C. Nasr 22-Mar-1984 
sot 4 : } Add OBJ$C_SYMSIZ to call to ANLSCHECK_SYMBOL. 
0049 1! v03-001 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 
: Change the message prefix to ANLOBJ$_ to ensure that 
1! 
1! 
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Module Declarations 1a28ep-1984 11:33:58 FANALYZ SROSOBITIR-O3224 — 
poe sbttl "Module Declarations’ 
005 ! Libraries and Requires: 
O08? 1 i 
0058 j 
0059 Library ‘starlet’; 
0060 require ‘objexereq'; 
0496 
0497 : 
0498 ! Table of Contents: 
0499 ' 
0500 
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forward routine : 
anl$object_tir: novalue, 
anl$object_tir_clean: novalue; 


' 
Macro Definitions: 

i The following macro is used to initialize one entry in the TIR command tabie. 
macro wig af Sh meee ses pelicans pr = 


Zif identical (command,reserved) %then 
rep (stack-operand+1)*8 of byte (0) 


%else 
uplit byte(Zascic Fete togccomnend>) 
byte (Zexactstring(3,%x'00' ,2stringloperand))), 
ett byte (stack) 
i 


q; 
! 
External References: 


external routine 
anl$check_symbol, 
anl$format_error, 
anl$format_hex, 
anl$format_line, 
anl$object_argument_dsc, 
anl$object_env_ref, 
anl$object_psect_ref, 
anl$object_record_line, 
anl$report_Line; 


' 
Own Variables: 

i The followin variable keeps track of the stack depth as we analyze TIR 
! commands. It is cleared after each object module. 


own Bien be 
stack_depth: long initial (0); 


! The following bit vector is needed to keep track of which literals are 
! defined with the OPR_DFLIT command. 


ws 
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054 
0547 1 own ; 
0548 1 Literal_def_bits: bitvector[256] initial(rep 256/8 of byte (0)); 
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Analyze TIR/DBG/TBI Object Records 1b-sep-1984 23:44:41 VAX=-11 Bliss<32 V4.0-742 
CT_TIR = Analyze TIR & Associated Objec 14-Sep-1984 11:52:58 CANALYZ.SRCJOBJTIR.B32;1 


Tsbttl "ANLSOBJECT_TIR = Analyze TIR & Associated Object Records’ 
ioe 
Functional Description: 
his routine is responsible for analyzing the TIR, DBG, and TBT 
object records. 
Formal Parameters: 
record_number The number of this object record. 
the_record Address of descriptor of the object record. 


! Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
non 


Side Effects: 


! 
i 
i 
i 
i 
i 
i 
i 
i 
' 
‘ 
i 
i 
i 
i 
i 
i 
i 
lew 

global routine ani$object_tir(record_number,the_record): novalue = begin 


bind : 
record_dsc = .the_record: descriptor; 


ce 
a 
= 
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77 ! The following table defines all of the commands valid in these records 
re ! (except the store immediate command). Each eatery includes the symbolic 
7 ! name of the command, the operand type (see below), and the number of 
280 ! Longwords pushed on or popped from the stack. 
2 ¢ field cmd_table_fields = s § 
5 cOmmand_name : 8.3268 ° 
5 operand type = (4,0,24,0), 
B28? - stack_affect = (7,0, 8,1 
es; 
0889 
st 4 own 
0589 cmd_table: blockvector([128,8,byte] field(cmd_table_fields) 
Bean initial ¢ 
0898 COMMAND NAME OPERAND TYPE STACK AFFECT 
0594 
0595 cmd_def<STA_GBL, SYM, +1), 
2298 cmd_def(STA_SB, B, +1), 
059 cmd_def(STA_Sw, W, +1), 
0598 cmd_def(STA_Lw, he +1), 
0599 cmd_def(STA-PB, PB, +1); 
0600 cmd_def(STA_Pw, BPw, +1), 
0601 cmd_def(STA_PL, BPL, +1), 
060 cmd_def(STA_UB, UB, +1), 
060 cmd_def(STA_UW UW, +1), 
0604 cmd—def(STA-BF i, NO, +1); 
0605 cmd_def(STA_wFI, NO, +1), 
0606 cmd_def(STA_LFI, NO, +1), 
0607 cmd_def(STA_EPM, SYM, +1), 
0608 cmd—def (STA~CKARG, ARG, +1). 
0609 cmd_def(STA_WPB, WPB, +1), 
0610 2 cmd_def(STA_WPw, WPW, +1), 
0611 2 cmd_def(STA_WPL, WPL, +1), 
Reig § cmd_def(STA_LSY, ENS, +1), 
061 cmd—def(STA“LIT, LTX, +1): 
pete 2 cmd_def(reserved, 19,19), 
0616 cmd_def(STO_SB, NO, -1), 
0617 cmd_def(STO_Sw, NO, -1), 
0618 cmd—def (STO"LW, NO, <1); 
0619 cmd_def(STO_BD, NO, -1), 
bess cmd_def(STO_wWD, NO, -1), 
0621 cmd-def(STO“LD. NO, -1); 
bess cmd_def(STO_LI NO, -1), 
06 cmd—def(STO-PIOR NO, -1); 
0624 cmd_def(STO_PICR, NO, -1), 
0625 cmd_def(STO_RSB, NO, -2), 
B66 cmd det (310 RSu, NO, -2), 
062 cmd—def (STO-RL NO, -2); 
0628 cmd-det(STO-vPS, vLO, -1): 
b6¢2 cmd_def(STO_USB, NO, -1), 
630 cmd—def(STO-USW. NO, -1); 
0631 cmd_def(STO_RUB, NO, -2), 
0652 cmd—def (STO"RUW. NO, -2), 
063 cmd-def(ST0-B, NO. -1); 
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ANLSOBJECT_TIR - Analyze TIR 2 Deesetetes Objec 14-Sep-1984 13:93:88 ANALYZ.SRCJOBJTIR.B32; tae (4 
cmd_def(STO_wW NO, “1), 
5 cmd—def(STO-R6, NO, 3). 
$ cmd_def(STO-Rw, NO 2); 
cmd_def (STO-RIVB, xf, 1); 
3 cmd_def(STO_PIRR, NO, -2), 
cmd_def(reserved, 43,49), 
0640 
1 cmd_def(OPR_NOP, NO, 0), 
ets cmd_def(OPR_ADD, NO, -1), 
064 cmd—def (OPR~SUB, NO, -1); 
0644 cmd_def(OPR . NO, <1), 
45 cmd—def (OPR“DIV, NO, -1). 
$ cmd_def(OPR_AND, NO, -1), 
064 cmd_def(OPR_IOR, NO, -1), 
0648 cmd_def (OPR-EOR, NO, 1); 
064 cmd_def(OPR_NEG, NO, 0), 
0650 cmd_def(OPR_COM, NO 0), 
0651 cmd_def (OPR-INSV, vLO, -1); 
8636 cmd_def(OPR_ASH, NO, -1), 
065 cmd_def(OPR_USH, 0, -1), 
0654 cmd—def (OPR-ROT, NO, “1); 
8832 cmd_def(OPR_SEL 0, -2), 
56 cmd—det (OPR-REDEF, SYM, 0); 
065 cmd_def(OPR-DFLIT, LX; 1); 
+34 cmd_def(reserved, 67,79), 
0660 cmd_def (CTL_SETRB, NO, -1), 
0661 2 cmd_def(CTL_AUGRB, L. 0), 
066¢ 2 cmd—def(CTL-DFLOC, NO, -1); 
066 ‘ cmd_def (CTL-STLOC, NO, -1); 
0664 cmd_def(CTL_STKDL, NO, 0), 
0665 cmd_def(reserved, 85,127) 
0666 
0667 ; 
0668 : . 
0669 2 ! The following List defines the operand type codes used in the table above. 
0670 2 ! Each one specifies a different combination of operands that can follow 
ber) § a command operation code. 
0673 2! ARG symbol, byte argument index, argument descriptor 
0674 § : 8 signed byte 
0675 : BP byte psect number ; 
0676 : BPB byte psect number, signed byte 
0677 ' BPL byte psect number, signed longword 
0678 : BPW byte psect number, signed wor 
0679 2! ENS word environment number, symbol 
0680 § : L pignee congyere 
0681 : LTX byte literal index 
068 § : SYM srepet ; 
068 : TXT ASCIC text string 
0684 : UB unsigned byte 
0685 : UW unsigned word : 
0686 : VLD byte position, byte size 
0687 ‘ w signed word 
0688 ; wP word psect number _ 
0689 ‘ WPB word psect number, signed byte 
0690 : WPL word psect number, signed longword 
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61 3 local 

6 9 scanp: ref block(,bytel, 

6 94 record_type: byte, 

64 95 command _number: Long, 

65 38 fit_ok: byte, 

4 9 command: signed byte, 

6 M4 work dsc: descriptor, 

68 Literal_index: byte; 

gas a 

4 § ! We begin by printing a major Line for the record. 

7? Oe scanp = vocerd Soctetrd: 

74 705 record type = .scanp ob} $b rectyo]; 

75 706 anl$object_record_line((selectoneu_.record ty e of set 

? 70 obj$c_tir): anTo *$_ob tirrec; 

7 Me ob $¢.dbg : anlobj$_objdbgrec; 

78 7 obj$c_tbtj: anlobj$_objtbtrec; 

79 710 tes), 

80 711 -record_number ,record_dsc); 

a orig increment (scanp); 

8 0714 ! Now we go into a loop processing the commands in the record. 

see 0715 : COMMAND NUMBER will count them as we go. 

85 B7t¢ ! SCANP will advance along the various commands and fields of the record. 
$39 arte ! FIT_OK will remain true unless a field spills off the end of the record. 

88 0719 command_number = 0; 

89 07 9 fit ok = true; : 

Sy 44 while (.scanp lssa (.record_dsc(ptr]+.record_dscllen])) and .fit_ok do ( 

Ht ! Count the command and prepare to print it nicely. 
0725 increment (command_number) ; 

«4 o75$ anl$report_line(0); 

97 0728 ! we split up depending upon whether it is a store immediate 

98 1444 ! command or some other one. 

300 0731 command = .scanp{0,0,8,1); 

01 O7 3g increment (scanp); 

02 07 4 if .command (iss 0 then ( 

03 0734 4 ; : : 

04 3? 5 4 ' It's a store immediate. Print a line for the command, 

be 34 $ ? ! and then dump the text. 

7? 0738 4 anl$format_Line(1,1,anlobj$_objtirstoim, .command_number ,~.command) ; 

08 0739 4 build_descriptor (work _dsc,-.command,.scanp); 

09 0740 4 anl$format_hex(2,work_dsc); 

10 0741 4 scanp = .scanp * -.command; 

11 Bree 4 

4 0743 4 ) else ( 

1 0744 4 “Sie 

14 0745 4 ! It's some other command. If it's invalid, just tell the 
ea O76 6 ! user. We also have to ignore the rest of the 

319 S544 : ' record since God only knows what it looks Like. 
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ssociated Objec 14-Sep-1 1:52:58 NALYZ.SRCJOBJTIR.B32; (5) 
if .cmd_tablel.command,command_ name] eqlu 0 then ( 

ori erect perros ienled IS obit teres. commend? 

build_descriptor(work_dsc,.record_dscllenJ-(.scanp-.record_dsc(ptr]),.record_dsc(ptr 

anl$format_hex(2,work—dsc); 

return; 
) else ( 


! It's a@ good command. Adjust the stack and then 
! print a Line for it. We use a different Line if 
! it changes the stack depth. 


stack depth = eagack depth + .cmd_tablel.command,stack_affect); 
anl$format_line(2,1, , ; 
(iF .cmd_tablel.command,stack_affect] eqlu 0 then anlobj$_objtircmd 
else anlobj$_objtircmdstk), 
-command_number,.cmd_tablel.command,command_name], 
-command, .stack_depth); 
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7? 767 & ! Now we select on the operand type for this command. This 
7 4 : wate tell us how to print the operands, and also let us 
7? “ ! adjust the scan pointer to the next command. NOTE that we 
0 7 4 ! use selectu so that operand types can make use of more 
1 re ? ! than one case. 
“§ Ak 2 selectu .cmd_tadlel.command,operand_type] of set 
5 775 4 
$ 776 4 C*BP*. 
777 & *‘BPB*, 
3 778 4 *BPw’ 
779 ~& *BPL'S: ! The command takes a byte psect number, 
50 780 4 ! perhaps followed by something e.se. Make 
23 349 ? ! sure to record the psect reference. 
3 784 5 (ensure_fieid_fit(0,0,8,0,record_dsc); 
54 784 6 if .fitZok then ( ; 
55 785 6 anl$format_lLine(0,2,anlobj$ gdjosect -scanpl0,0,8,0]); 
26 0786 6 anl$objectpsect_ret(.scanpl0,0,8,0)): 
5 0787 6 increment Tscanp); 
58 0788 4 3); 
59 0789 4 

0 0790 4 

1 0791 4 C'wP*. 

4 Br 4 *WPB*, 

0795 4 *WPw' 
0794 4 "WPL": ! The command takes a word peect number, 

366 1444 ? ! perhaps followed by something else. 

7 797 5 (ensure_field_fit(0,0,16,0,record_dsc); 

368 0798 6 if .fitlok then ( : ; 

369 0799 6 anl$format_lLine(0,2,anlobj$ gbjpsece -scanp(0,0,16,0)); 
70 0800 6 anl$object_psect_ref(.scanp[0,0,1 04); 
71 0801 6 scanp = .scanp + 2; 

7@ 0802 4 3); 

7? 0803 4 

74 0804 4 

75 0805 4 C*ENS'): ! The command takes a word environment number, 

3/8 pane ? ! perhaps followed by something else. 

378 0808 5 (ensure_field_fit(0,0,16,0,record_dsc); 

eg 0809 6 if .fitlok then ( : : 

0 0810 6 anl$format_lLine(0 ¢-anlobi$_9bjeny -scanpl0,0,16,0)); 
381 0811 6 anl$object~env_ref(.scanpl0;0,16,03); 
356 pais 6 scanp = .scanp * 2; 

8 0815 4 3); 

84 0814 4 

85 0815 4 (*B* 

86 te 6 *BPB' ‘ 

87 0817 4 "wPB' 4: ! The command takes a signed byte operand, 

14 ts : ! perhaps preceeded by something else. 

90 0820 5 (ensure_fieid_fit(0,0.8,1.record_dsc); 

91 0821 6 if .fitlok then ( ; : 

92 08 § 6 anl$format_lLine(0,2,anlobj$_objvalue,.scanp{0,0,8,1)); 

393 0823 6 increment Tscanp); 


POPIMONEMONPNONNY 2 I SO SO 


s 


at at ot ot at ot et et at ek ok ek et et et ete et et et ok et et et et et et td 


4 
OBJTIR = Analyze TIR/DBG/TBT ect Records 1S-se “19 744:461 AX=-11 Bliss-32_ V4.0-74 
ANLSOBJECT.TIR = Analyze TIR ssociated Objec 12-800-198e $7:85:85 LANALYZ-SRe oBsT IR .83224 
4 & 3); 
; 
$ ? C*uB"): ! The command takes an unsigned byte operand. 
§ 5 (ensure_field_fit(0,0,8,0,record_dsc); 
0 6 if .fitlok then ( 
1 6 anl$format_Line(0,2,anlobj$_objuvalue,.scanpl[0,0,8,0)): 
; 6 increment Tscanp); 
8 4 3); 
On3 ¢ 
§ 4 C*LIx'): ! The command takes a byte literal index. We 
0838 2 ! need to save it for later checking. 
0839 5 (ensure _field_fit(0,0,8,0,record_dsc); 
0840 6 if .fitlok then ( 
0841 6 anl$format_Line(0,2,anlobj$ ob] ( {tindes,.sconpl0.0.8.6)): 
pees 6 Literal_index = .scanp(0,0,8,0); 
0845 6 increment (scanp); 
0844 4 3); 
0845 4 
gee 4 
0847 4 ‘w', 
0848 4 *BPw' 
0849 4 "wPw'd: : The command takes a signed word operand, 
Base : ! perhaps preceeded by something else. 
tit 5 (ensure_field_fit(0,0,16,1,record_dsc); 
0855 6 if .fitlok then ( , ; 
0854 6 anl$format_lLine(0,2,anlobj$_objvalue,.scanpl0,0,16,1]); 
0855 6 scanp = .scanp + 2; 
0856 4 FFF: 
0857 4 
0858 4 
44 ? C*uw'): ! The command takes an unsigned word operand. 
861 4 
pa6¢ 5 (ensure _field_fit(0,0,16,0,record_dsc); 
08635 6 if .fitlok then ( ; : 
0864 6 anl$format_line(0,2,anlobj$_objuvalue,.scanp(0,0,16,0)); 
0865 6 scanp = .scanp * 2; 
0866 4 3); 
784 4 
868 4 
0869 4 ne 
0870 4 *BPL’ . 
0871 4 "WPL: ! The command takes a signed longword operand, 
ba58 4 ! perhaps preceeded by somthing else. 
08735 4 
0874 4 
0875 5 (ensure_field_fit(0,0,32,1,record_dsc); 
pars 6 if .fitlok then ( . : 
77 6 anl$format_lLine(0,2,anlobj$_objvalue,.scanp(0,0,32,1)); 
0878 6 scanp = .scanp + 4; 
879 4 d3); 
0880 4 
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AX-11 Bliss-32 V4.0-74 2 
ANALYZ.SRCJOBJTIR.B32; (6) 


ar 
o-— 


ssociated Objec 14-Sep-19 


c* sym. 
ARG’ 


ENS" 5: ! The command takes a symbol name, perhaps 
i preceeded or followed by something else. 


fensure.. pects. £1860, .0,8,0,record_dsc ,work_dsc); 
-fitlo 
ant$format. Line(0,2,anlobj$ S| ete eh sgere -dscllen],.work_dsc(ptr]) 
anl$check _Symbol (work _ dsc, = s 
se scanp = .Scanp + 1 + Twork _dscLlen 


C*ARG'): ! The command takes an argument descriptor. 
! This consists of a symbol, which was analyzed 
above, an argument index, and an actual 


! argument descriptor. 


qneyre.. -field. fi8¢0, -0,8,0,record_dsc); 
-fit_o 
“anl$format_line(0, -2,anlobj$ objtirargindex,.scanp(0,0,8.0)); 
increment Tscanp) 
fit_ok = iientors _argument_dsc(3,scanp,record_dsc); 


( 
i 
deds 


C*txT'): ! The command takes a counted string with text. 


ensure_ascic gf 4(0. 0,8,0,record_dsc,work_dsc); 
f .fitlok then ( 

~ealetornct hex(2,work_dsc); 

scanp = .scanp + 1 + Twork_dscClen); 


( 
i 
sds 


C*VLD'): : The command takes a vield definition, 
i consisting of a position and a size. 


(ensure_ sold, fit(0,0,16,0,record_dsc); 
if .fit” “ok then ( 
“gyistoraes Line (s 2,anlobj$ fg i*pevietd.. -scanpl0,0,8,0)..scanp(1,0.8 
f .scan js: s¢anee 
minu( (° eee 0,8,0]+ 3857 §23)9 then 
an($format _error(anlobj$_ objbadvield); 
sai scanp = .scanp + 2; 


tes; 
! Check the stack to ensure that we haven't popped too much. 


if .stack = depth iss 0 then 
anl$format_error(anlobj$_objbadpop); 
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oe 


Bo HR 


R- anol yze TIR/DBG/TBT peject Records 


SOBJECT_TIR = Analyze TIR 1:52:58 
208 5 4 ! Now we have to perform some checks that are specific to 
0 9 4 ! various commands. Just select on the command and make 
08 9 4 ! the check. 
09 0938 4 
10 8 9 4 electoneu .command of set 
13 yeee ? tirSc_sta_litd: 
318 0942 4 ! We have a stack Literal value command. Make sure 
13 SoeE : ! the Literal has been defined. 
316 0945 4&4 if not .literal_def_bitsl.literal_index] then 
517 0946 4 anl$format_error(anlobj$_objundeflit); 
518 0947 4 
th 0948 4 Ctir$c_opr_dfliti: 
20 0949 4 . k 
521 0950 4 : We have a define Literal command. Set the defined 
es¢ 0951 4 ! bit for the Literal. 
52 0952 4 ‘ ; ; P 
524 0953 4 lLiteral_def_bitsC.literal_index] = true; 
525 0954 4 
526 0955 4 Ctir$c_ctl_dfloc, 
527 0956 4 tir$c_ctlistloc 
528 0957 4 tirScicttistkdl): 
529 0958 4 : Res 
530 0959 4 : We have a command that is not valid in TIR records, 
531 0960 4 ! only in DBG and TBT records. 
532 0961 4 ‘ ; : 
533 0962 4 if .record type eqlu obj$c_tir then. ; 
534 0965 4 an($format_error(anlobj$_objnontircmd) ; 
535 0964 4 tes; 
536 0965 4 
537 0966 4 ! Analysis of command is complete. 
538 0967 4 
539 0968 3 ); 
540 0969 3 
541 0970 3 ! Go on to next command. 
542 0971 3 
543 0972 2); 
544 0973 2 
545 0974 2 return; 
546 0975 2 
547 0976 1 end; 
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42 47 SF 41 54 53 O07 00000 P.AAA: 3 
42 53 SF 41 54 53 06 00008 P.AAB: .ASCII <6>\STA_SB\ : 
57 53 SF «1 54 23 06 Bano P.AAC: .ASCII <6>\STA_SW\ : 
57 4C SF 41 54 53 06 00016 P.AAD: .ASCII <6>\STALLW\ : 
$8 50 SF 41 54 53 06 Q001D P.AAE: .ASCII <6>\STA_PB\ : 
57 50 SF 41 54 53 06 00024 P.AAF: .ASCII <6>\STA_PW\ : 
4C 50 SF 41 54 53 06 Q002B P.AAG: .ASCII <6>\STAZPL\ : 
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-PSECT SOWNS,NOEXE,2 
00000 STACK_DEPTH: 


-LONG 0 
00004 LITERAL _DEF BITS: 
-BYTE 032) 
00024 CMD_ TABLE: 
-ADDRESS P.AAA 
00028 “ASCII \SYM\ 
00028 “BYTE 1 
000 f ADDRESS P 
000 ASCII \B\c0e<0> 
te -—BYTE 1 
00034 “ADDRESS P AAC 
00038 [ASCII | \W\<0><0> 
00038 -—BYTE 1 
0003C¢ -ADDRESS P 
00040 “ASCII “i (coo<@> 
00043 7. uy 1 
00044 DRESS P.AAE 
00048 “ASC Ti \BPB\ 
00048 .BYT 1 
0004C “ADDRESS P.AAF 
00050 ASCII \BPW\ 
00053 -BYTE 1 
00054 -ADDRESS P. +% 
00058 ASCII \BPL\ 
00058 “BYTE 
0005C -ADDRESS P.AAH 
00060 “AE \UB\<0> 
00063 i, 
00064 [ADDRESS P 
00068 “Ast \usneb> 
00068 YTE 1 
0006C  ODRESS P.AAJ 
00070 “ASCII \NO\CO> 
00073 ris 
00074 -ADDRESS P.AAK 
00078 “ASCII \NO\<0> 
00078 BYTE 1 
0007C¢ rs) ale P.AAL 
00080 ASLIIT \NO\<0> 
00083 “BYTE 
ohoaa -ADDRESS P.AAM 
00088 ASCII \SYM\ 
00088 -—BYTE 1 
0008C ADDRESS P.AAN 
00090 ASCII \ARG\ 
00093 -—BYTE 1 
00094 -ADDRESS P.AAO 
00098 ASCII = \WPB\ 
0098 BYTE 1 
009C ADDRESS P.AAP 
OOAO eASCIIT = \WPW\ 
000A3 BYTE 1 
OO0A4 -ADDRESS P.AAQ 
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FF 00213 -BYTE <1 
00000000° $ 14 ADDRESS P.AC 
00 4F 4€ 18 «ASCII \NO\<0> 
FF 00218 -BYTE <1 
00000000" 0021 «ADDRESS P.ACD 
00 4F 4E 00 ASCII \NO\<0> 
FF 0 BYTE -1 
00000000" 00224 -ADDRESS P.AC 
00 4F 4E 00228 ASCII \NO\<0> 
F 0228 -BYTE <=2 
00000000° 0022C «ADDRESS P.ACF 
4D 59 5§ 0 ASCII \SYM\ 
00 00 -BYTE 0 
00000000° 00234 -ADDRESS P.ACG 
58 54 4C 00238 ASCII \LTXN 
FF 00238 «BYTE <1 
0O# 0023C «BYTE 0£104) 
00000000' Boeke «ADDRESS P.ACH 
00 4F 4E 002A8 ASCII \NO\<0> 
FF QO2AB BYTE -1 
00000000" 002AC «ADDRESS P.ACI 
00 00 4C 00280 «ASCII \L\<0><0> 
00283 -BYTE 0 
00000000" 00284 -ADDRESS P.ACJ 
00 4F 4E 00288 ASCII \NO\<0> 
00288 BYTE -1 
00000000° 002BC -ADDRESS P.ACK 
00 4F 4E Based ASCII \NO\<0> 
FF Q02C -BYTE -1 
00000000° 002C4 eADDRESS P.ACL 
00 4F 4E 002C8 -ASCII \NO\<0> 
00 002CB -BYTE 
OO# 002CC “BYTE 0€344) 


.EXTRN ANLOBJ$_OK ANLOBJS ANYTHING 
-EXTRN ANLOBJ$~DATAT 

“EXTRN ANLOBJ$~ ERRORCOUNT 

“EXTRN ANLOBJ 


BJ$_ERRORNONE 
-EXTRN ANLOBJ$~ERRO ret ANLOBJS_EXEFIXA 
-EXTRN ANLOBJS_EXEF IXAIMAGE 
~EXTRN ANCOBIS~ EXEF IXALINE 
-EXTRN ANLOBJS$_EXEF IXCOUNT 
-EXTRN ANLOBJS_EXEFIXEXTRA 
-EXTRN ANLOBJS$_EXEFIXFIXED 
-EXTRN ANCOBIS EXEFIXFLAGS 
-EXTRN 9 ANLOBJS_EXEFIXG 
-EXTRN ANLOBIS~ tn HE ht ar 
-EXTRN ANLOBJS_EXEF IXGLINE 
-EXTRN ANLOBJS"EXEFIXLIST 
~EXTRN ANCOBIS EXEF I XNAME 
-EXTRN ANLOBJS$_EXEF IXNAMEO 
~EXTRN ANLOBJS_EXEF IXP 
-EXTRN ANLOBIS ap tet ime 
-EXTRN ANLOBJS$~EXEF IxuP 
-EXTRN ANLOBIS~ EXEF IXUP 
-EXTRN ANLOBJS$"EXEGST, AN OBS EXEHDR 
-EXTRN ANLOBJS$~EXEHDRAC 
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ANL OB $7EXEHD RISD 
ANLOBJ$~EXEHDRI SDBASE 
ANL OBJ$EXEHDRI SD COUNT 
ANLOBJ$~EXEHDRI SDFLAGS 
ANL OB $7EXEHDRI $06 GBL 
ANL OBJ$“EXEHDRI SD NUM 
LOBJ$~EXEHDRI SDPF CDEF 
ANLOBJ8-EXEMDRISDPF 312 
ANLOBJ$_EXEHDRISDTYPE 
ANLOBJ$~EXEHDRI SDVBN 
ANLOBJ$~EXEHDRL INK ID 
ANLOBJS— EXEHDRMAT CH 
ANLOBJ$~EXEHDRNAME 
LOBUS ~EXENDSNOPATCH 
ANLOBJ$~EXEHDRPAGE COUNT 
ANLOBJ$~ =EXEHDRPAGEDEF 
ANLOBJ$~EXEHDRPATCH 
ANL OBJ$~EXEHDRPATCHDATE 
ANLOBJ$~EXEHDRPRIV 
ANLOBJ$~EXEHDRROPATCH 
ANLOBJ$~EXEHDRRWPATCH 
ANLOBJ$~EXEHDRS YMDBG 
OBJS~EXEHDRSYSVER 
ANLOBJ$~ “EXEHDRTEXTVEN 
ANLOBJ$~EXEHDRT IME 
ANLOBJ$~EXEHDRTYPEEXE 
ANLOBJ$~EXEHDRTYPEL IM 
ANLOBJ$~EXEHDRUSERECO 
ANLOBJ$~EXEHDRXFER 
ANLOBJ$~EXEHDRXFER 
ANL OB$“EXEHDRX? ER 
ANLOBJ$7E XEHE AD ING 
ANLOBJ$~EXEPATCH 
ANLOBJ$"FLAG, ANLOBJ$_HEXDATA 
ANLOBJ$~HEXHEADING1 
ANLOBJ$~HE XHE AD ING2 
ANLOBJS~INDMSGSEC 
ANLOBJ$~ INTERACT 
ANLOBJ$~MASK ANL OBS OBJCPRREC 
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ANLOBJ$~OBJEOMSE VABT 
ANLOBJ$~OBJEOMSEVERR 
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EOMREC 


Bio 


OBJTIR = Anal 


ANLSOBJECT_TI 


}? 


e TIR/DBG/TBT 
= Analyze TIR 


eh 


ect Records 1$-52 
ssociated Objec 12-808-19 


1986 44:33: 


2. 
758 ANALYZ.SRCJOBJT 


jcc... 


LOBJ$~OBJH 
ANLOBJ$~OBJL I TINDEX 
ANLOBJ$~OBJLNKREC 
ANLOBJ$~OBJL 
ANLOBJ$~OBJMHDCREATE 
ANL0BJ$~08J 


-0BJM 
ANLOBIS OBJMT +t la 
-0BJM 


ANLOBJ$"OBJPSECT 
ANLOBJ$~OBJSRCREC 


seat 


JTIR OBJTIR = Analyze TIR/DBG/TBT ect Records 18. “19 74 
782-000 ANL SOBJECT Tik = Analyze TIR e ssociated Objec 15-Sep-1986 73 75 


we 


241 AX=11_ Bliss-32 V4.0-76 
:58 ANALYZ.SRCJOBJTIR. 832; 
ANLOBJ$_OBJSTATHEADING! 
ANLOBJ$~OBJSTATHEADING2 
ANLOBJ$~OBJSTATLINE 
ANLOBJ$~OBJSTATTOTAL 
ANLOBJ$~OBUSY 
ANL 9BJ$~0BJS MF LAGS 
ANL0BJ$~OBJT IRARGINDEX 
ANL 08.1808 T IRCMD 
ANL0BJ$~OBJTIRCMDSTK 
ANL08J$~ OBJ TBTREC 
ANLOBJ$~OBJTIRREC 
ANLOBJ$~OBJTIRSTOIM 
ANL OBJ$_OBJTIRVIELD 
ANLOBJ$~OBJTTLREC 
ANL0BJ$~ OBJ VALUE 
ANL0BJ$~OBJUVALUE 
ANLOBJ$ "PROTECTION 
ANL OBJS“SEVERITY 
ANLOBJ$~TEXT ANLOBJ$_TEXTHDR 
ANLOBJ$~NOSUC 
ANLOBJ$~BADD 
ANLOBJ$~BADHDRBLKCOUNT 
ANLOBJ$~BADSE VERITY 
ANLOBJ$~BADSYM1ST 
ANLOBJ$~BADSYMCHAR 
ANLOBJ$~BADSY 
ANL OBJ$~EXEBADF I XUP 
ANL 0BJ$~EXEBADF IXUPISD 
ANLOB.J$E EXEBADE 1XUPVBN 
ANLOBJ$ ~EXEB SDS1 
ANL OBS ~ EXEBADISDIYP€ 
ANLOBJ$ 
ANL O88-EMEBADPATCHLEN 
ANL0BJ$~EXEBADOBJ 
ANLOBJ$~EXEBADTYPE 
ANLOBJ$~EXEBADXF ERO 
ANL OBJ$7E XEHDRI SDL ONG 
ANLOBJ$~EXEHDRLONG 
ANLOBJ$~ “EXE 1 SDLENDZRO 
ANLOBJ$~EXE I SDLENGBL 
ANLOBJ$~EXE I SDLENPRIV 
ANLOBJ$~EXENOTNAT IVE 
ANL OBJ$~EXTRABYTES 
ANLOBJS—F IELDE IT 
ANLOBJ$~F LAGERROR 
AN 0848 NOTOK, ANLOBJ$_OBJBADIDCMATCH 
ANL OBJ$~ OBJBADNUM 
ANL0BJ$~OBJBADPOP 
ANL0BJ$~08JBADPUSH 
ANLOBJ$~OBJBADTYPE 
ANLOBJ$~OBJBADVIELD 
ANLOBJ$~OBJEOMBADSEV 
ANLOBJ$~OBJEOMMISS 
ANL OBJ$~0BJF ADBADAVC 
ANL0BJ$~08JF ADBADRBC 
ANLOBIS~ "0B GSDBADAL IGN 


ANL0BJ$~0BJGSDBADSUBT YP 


el 
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JTIR OBJTIR = Analyze TIR/DBG/TBT ect Record 1b. “19 44: AX-11 Bliss- 4.0-74 
702-000 ANLSOBJECT_TIR = Analyze TIR Pisss. lates Sbjec 12-800- 1984 $7:$5:38 ANALYZ SRE OBsT IR o3e04 


ANLOBJ$_OBJHDRRES 
-EXTRN ANLOBJ$~OBJMHDBA 
ANLOBJ 


et 
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(= 
ee 
S2Oow 
jeeowowcc. 
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—rm 
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DD 
2 
wer 
s<88 
xzm~ 
mm 
ow 
~z 
~ 
"> 
<a 
ont 
or 


sp ANt SF ORMAT LINE 


ZEXTRN ANLSREPORT~LINE 

-PSECT S$CODES,NOWRT,2 
OFFC 00000 “ENTRY ANLSOBJECT_TIR, Save R2.R3,R4,R5,RO.R7.RB,= ; 
08 ¢2 0000 SUBL2 
MOVE 


5E 
56 08 AC 00 0000 
57 04 A6 YE 00009 MOVAB 


0573 


THE RECORD, R6 
4(RB), R7 


~_uM 


76 
04 


705 


w 
co 
So 
So 
m 
Oo 
ovo 
io 
o 
oO 
o 
nn 
<< 
@ 


SOOOCOCCOOCOOOCOOOOOOOOoOOSoOOoOSooOOo 


(R7) 
_— RECORD_TYPE 
PUSHL RECORD_NUMBE 


CMPB RECORDLIVPE #2 
PUSHL —#ANLOBJS_OBJTIRREC 
1$: CMPB = RECORD_TYPE, #4 
#ANLOBJS_OBJDBGREC 
RECORD_TYPE, #5 
MNEGL #1, =(SP) 


#ANLOBJ$_OBJTBTREC 
CALLS + Ant OBJECT RECORD_L INE 


oooo CO 


S33 
=3 


000000006 
0708 
000000006 


ocoocecessessescco 
~™ 
wn 
ao 
S3e 


000000006 
0000G CF 
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TW 3zZ0°%W 
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5 
OBJTIR = Analyze TIR/DBG/TBT ect Records hese “19 166:61 AX-11 Bliss-32 V4.0-74 Pp 
ANLSOBJECT. TIR = Analyze TIR ok Objec 12-808-138e 49:95:33 ANALYZ.SRCJOBJTIR.B32; Mig m+ 
RET 3 
01 54 BLBS FIT_OK, 7$ 3 
9 INCL COMMAND _NUMBER : 7 5 
00006 ¢F OF ChLTS #1) ANLSREPORT_LINE —— 
4 00 BE MOVE § @SCANP, COMMAND + 0731 
(3 INCL § SCANP : 13 
53 B CVTBL COMMAND. R3 : 07 
BGEQ : 
52 MNEGL R3, R2 : 0738 
PUSHE COMMAND. NUMBER : 
000000006 &F PUSHL #ANLOBJS_OBJTIRSTOIM : 
1 PUSHL #1 : 
1 PUSHL #1 : 
00006 CF 5 CALLS #5, ANLSFORMAT_LINE : 
04 AE 2 MOVL 2, WOR + 0739 
08 AE 6— 00 MOVL  SCANP, WORK_DSC+4 : 
06 A PUSHAB WORK_DSC : 0740 
D PUSHL : 
00006 CF 8 CALLS #2, ANLSFORMAT_HEX : 
6 32 60 ADDL2 2. SCANP : 0741 
0000'CF43 7F PUSHAQ CMD TABLECR3] + 0749 
52 9 p09 MOVL a(SP)+, R : 
1 BNEQ : 
DD PUSHL R : 0750 
000000006 BF DDO PUSHL #ANLOBJ$_OBJTIRRES : 
0000G CF 02 Fe CALL #2, ANLSFORMAT_ERROR : 
50 $7 6E ¢ SUBL3 SCANP, (R7), RO : 0751 
1 6 x MOVZWL (R6), RI : 
04 AE 50 1 C1 ADDL3 R1, RO, WORK DSC : 
08 AE 67 00 OVL (R?), WORK_DSC+4 ; 
06 AE OF PUSHAB “DSC : 0752 
02 od 000C¢ PUSHL @# ; 
00006 CF 02 FB 00 CALLS #2, ANLSFORMAT_HEX : 
04 00 RET + 0749 
0000'CF43 7F 00001 9S: PUSHAQ CMD_TABLE+7(R3) : 0760 
50 9E 98 00006 CVTBL a(SP)+ : 
0000" CF 50 CO 00009 ADDL2 RO, STACK_DEPTH : 
0000* CF oD 0000 PUSHL STACK_DEPT : 0765 
o¢ BB OO0E PUSHR “M<RZ,R3 3: 0764 
9 bb O00E4 PUSHL COMMAND ER ; 
0000'CF43 7F OO0ES6 PUSHAQ CMD TABCE+7(R3) : 0762 
9 95 OO0EB TSTB 3s (SP) + : 
12 OO0ED BNEQ 10$ ; 
000000006 8F DD OO0EF PUSHL #ANLOBJ$_OBJTIRCMD F 
6 11 O00FS BRB ; 
000000006 8F DD OOOF? 10$: PUSHL  M#ANLOBJ$_OBJTIRCMDSTK ; 
1 DD OOOFD 11$:  PUSHL #1 : 0761 
00006 CF 09 PB tH CALS a5 ANL $FORMAT_LINE : 
0000°CF43 7F $106 PUSHAQ (CMO_TABLE+4(R37 : 0773 
52 E 1 90 EF 001 ExTZvV #0, #24 a(SP)+, R2 ; 
00005042 &8F D1 0011 (MPL = R2. #20546 : 0776 
1B 13 0011 BEQL 128 ; 


vO4-000 


OBJTIR - 
ANLSOBJECT_ Analyze TIR 
00425042 8F 
004(5042 8F 
00575042 Ff 
» § 
00006 CF 

1 
rt 
00006 . 

0000G CF 
00005057 &F 
00425057 8F 
0046(5057 BF 
00575057 = 8F 
38 

50 6€ 
55 

0000G CF 

1F 

7E 

0000G CF 

7E 
00006 ce 
00534645 8F 
38 
" és 
0000G (CF 

1F 
7€ 


000000006 


00 
000000006 


00 


000000006 


00 
000000006 


00 


000000006 


00 


Analyze TIR/DBG/TBT ect Reco 
1 tik = a | ao 


5 
1 


"9 OF PN Ornn 


a 
2 


F 
1 
4 
4 


BE 


11 


—-o 


5 
1$<sep-19 
ssociated Objec 14-Sep-19 


1 
? 1 
1 
) 1 
1 NG 2 
C1 001357 
D1 001 
18 001 
m Bei 
94 $148 
4H 3138 138: 
A 00150 
DD 00154 
DD OO15A 
D4 0015C 
FB FF 
9A 0016 
FB 0016 
D6 331 ee 
D1 OO16E 148: 
13 001 
01 Bate 
13 HEA 
Di 001 
13 00187 
D1 00189 
ig 00190 
E BO tes 15$: 
C1 thd 
D1 00199 
18 0019C 
DOD Bot at 
FB O01A4 
94 od 4 
2 O1AB 168: 
C QO1A 
DD 0018 
DD 001 
D4 001BA 
FB 001BC 
3¢ Bote) 
F 1¢5 
CO OO1CA 
Di OOI1CD 17%: 
iF 001D4 
E9 00106 
C1 00109 
D1 00100 
Bie 
FB tt 
94 OO1ED 
0? OIEF 188: 
C O01F2 


146:4 AX-11 Bliss-32 vV4.0-74 
$ $7:35'3) PANALYZ SRE IOBITIR-B32; 
CMPL R2, #4345922 
BEQL 120$ 
¢ R2, #5001282 
BEQL«=Stséd O'S 
CMPL «=soaRo, «#5722178 
oy ee | 
ADDL3 a} Seine, RO 
CMPL RO R 
tou 138 
PUSHL #ANLOBJ$_FIELDFIT 
CALLS #1, ANLSFORMAT_ERROR 
CLAB 3s FA f_OK 
LBC = FAT“OK, 14$ 
MOVZBL @SCANP. (SP) 
PUSHL #ANLOBJ$_OBJPSECT 
PUSHL #2 
CLRL. = (SP) 
CALLS #4, ANLSFORMAT_LINE 
MOVZBL @SCANP, =(SP) 
CALLS #1, ANLSOBJECT_PSECT_REF 
CMPL =soaR2, - #20567 
BEQL 
CMPL = R2, #4345943 
BEQL 
CMPL = R2, #5001303 
BEOL 
CMPL = R2, #5722199 
Sec. ITOK, 178 
ADDL3 #3. SCANP, RO 
CMPL ~=s RO, RS 
BLEGU 16 
PUSHL #ANLOBJ$_FIELDFIT 
CALLS #1, ANLSFORMAT_ERROR 
CLRB 3s FI T_OK 
BLBC FIT"OK, 178 
MOVZ2WL @SCANP, =-(SP) 
PUSHL #ANLOBJ$_OBJPSECT 
PUSHL #2 
CLRL. = SP) 
CALLS #4, ANLSFORMAT_LINE 
MOVZWL @SCANP, -(SP 
CALLS #1, ANLSOBJECT_PSECT_REF 
ADDL2 #2. SCA 
CMPL = R2. #5459525 
BNEQ  19§ 
BLBC_ FIT_OK, 19% 
ADDL3 #2, ~SCANP, RO 
CMPL =sRO, RS 
BLEGU 188 
PUSHL #ANLOBJS_FIELDFIT 
CALLS #1, ANLSFORMAT_ERROR 
CLARE —s FIL f_OK 
BLBC ~=—-—sFIIT“OK, 19% 
MOVZ2WL a@SCANP. =(SP) 


ae 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Be Ge Se Se Se Se Se Se Se Se Se Se He Se Se Be 


0783 


0785 


0786 


0787 
0791 


0797 


; 5 
244: -11_ Blisg-32 vV4.0-74 Page 3 
- R/ /TBT ect Records 1b-sep-19 4 74:4) AX 4 3 
5 yo2~000 ANLSOBJECT Ti y- bow fa TIR ssociated Objec 1a2805-1 986 #7:95:85 LANALYZ- SRE OBJTIR.B32 
000000006 iy pe pire Ae Hey ~ ace maid 
04 olf CLAL -(SP) FORMAT _LINE : 
00006 fay BE ERED AES, 24s hm sronmar, f con 
; ‘ r 09 CALL #1, ANLSOBJECT_ENV_REF : oat 
— cf 8 8 of ADDL H » SCANP ger 
cocoon sg BL Goeth toss Gt : 

“ 5 D1 OOZIA CMPL g #4345922 : 
004625042 &F BT Bogie ag a 
00425057 SF 33 9} 8 ; ened R #634 ; in 

54 ig O22C 208 BLBC FIT_OK, 22$ ; 
43 1 C€1 0022F ADDL3 #1, SCANP, RO : 
Ke Sia gs, BS 2 
OD 18 s1T : 
OP Laced it: eM Ede : 
R FI K : 
we ae BA UG. 2, HB! 
” S06 BF bp 00 te PUSHL #ANLOBJ$_OBJVALUE : 
cooono0es Hh bp Boe; Plt : 
7E 04 00254 CLRL -(SP) ’ Ne 
0000G CF ee fe 00956 ite Fa aherern JL! 0825 
52 D1 ith 228: CMPL R2, #16981 : 
seine cts 1 12 00264 BNEO 4$ ~~ 
4 £5 00266 BLBC_ FIT_OK, 24$ 
ef 01 ¢€1 00269 ADDL3 #1, SCANP, RO : 
CO A ee BE a : 
So $ FIELDFIT 3 
0000G CF cones: 01 PB 60978 CALLS #11 ANL SFORRAT ERROR : 
R - : 
2¢ 25 iad 238: stee FIT OK, 24$ i oe30 
; 0 BE 9A 00282 MOVZBL a@SCANP, -(SP) : 
" 00286 PUSHL #ANLOBJ$_OBJUVALUE : 
coooondos Hh Bb Onze URAL A 2 
-(SP) : 
be oS ists rie a: ANL $F ORMAT_L INE : 0832 

2 vo E 06 00295 INCL SCAN : OB se 

| § D1 00297 24%: CMPL R2, #5788748 : 
rm es BY ee ons 

32 bt e? BOSAS BDL #1, °SCANP, RO : 
: 5 501 Gosh? © ERP Ry : 
FIELDFIT 3 
goon cr ONS FE Re RE LE ae : 
54 94 0028 CLRB si 0840 
: TOK, 26$ : 
re bc BR ist — BOv BL SE CRNP. =(SP) ; 0841 
" ti 80 co PUSHL #ANLOBJ$_OBJLITINDEX : 
eoon00006 HE Bb Basch BUSH HAN 2 
7E D4 002C8 CLRL -(SP) : 


~— 


a 5 
OBJTIR OBJTIR = Analyze TIR/DBG/TBT Object Records 15-Sep-1984 244:41 AX-11 Bliss<-32 v4.0-74 p 
902-000 ANLSOBJECT.TIR = Analyze TIR e eeaeteies Objec 12-80 8- 1986 $7393.38 LANALYZ SRE OBJTIR.B32; er ra} 
00006 cf 04 FB O2CA CALLS #4, ANLSFORMAT_LINE : 
A 00 BE 90 O02CF OVB aSCANP, LITERAC_INDEX > 084 
§ D6 00 D3 INCL SCANP 3 084 
00000057 = &F D1 00205 26$: CMPL Re, #87 : 0847 
12 13 0020¢ BEQL «6s 7$ : 
00575042 =F 38 p 0 CPL Res #5722178 : 
00575057 = BF 33 D1 99 a CMPL Re #5722199 : 
32 12 002E BNEG 29% : 
2F 54 €9 002F0 278: BLBC FIT OK. 29$ + 0852 
50 gf 92 C1 O02F ADDL3 #2,~SCANP, RO : 
5 D1 99 F CMPL RO, R5 : 
0D 18 OO2FA BLEGU 28$ : 
000000006 8F DD doer PUSHL #ANLOBJ$_FIELDFIT : 
0000G CF 9} FB 00 O¢ CALLS #1, ANLSFORMAT_ERROR 3 
4 94 0030 CLRB 3s FIIT_OK : 
16 54 £9 00309 28$: BLBC FIT-OK, 29$ : 0853 
7E 00 BE 32 0030¢ CVTWL a@SCANP, =(SP) + 0854 
000000006 8F DD 00310 PUSHL #ANLOBJ$_OBJVALUE : 
02 DD 00316 PUSHL #2 : 
7E 04 00318 CLRL -(SP) : 
00006 CF 04 FB OO31A CALLS #4, ANLSFORMAT_LINE : 
6E 02 CO 0031F ADDL2 #2, NP : 0855 
00005755 =F 52 D1 00322 298: CMPL R2, #22357 : 0859 
32 12 00329 BNEQ : 
2F 54 £9 00328 BLBC FIT_OK, 31$ : 0862 
50 bf 02 (1 003¢e ADDL3 #2, SCANP, RO : 
55 50 D1 00332 CMPL RO, RS : 
0D 18 00335 BLEQU 3 : 
000000006 8F DD 00337 PUSHL #ANLOBJ$_FIELDFIT : 
0000G CF 01 FB 0033D CALLS #1, ANLSFORMAT_ERROR 3 
54 94 00342 CLRB = FI T_OK : 
16 54 £9 00344 308: BLBC FIT-OK, 31$ : 0863 
7E 00 BE 3C 00347 MOVZWL @SCANP, =(SP) + 0864 
000000006 8F DD 00348 PUSHL #ANLOBJ$_OBJUVALUE : 
02 DD 00351 PUSHL #2 : 
7E D4 00353 CLRL -(SP) 3 
00006 CF 04 FB 00355 CALLS #4, ANLSFORMAT_LINE : 
6E 02 CO 0035A ADDL2 #2, SCANP : 0865 
0000004C = &F 52 D1 0035D 31$: CMPL R2 : 0869 
12 13 00364 BEQL : 
004€5042 8F 52 D1 00366 CMPL R2, #5001282 F 
09 13 0036D BEQL ©: 328 : 
004C5057 BF 32 D1 0036 CMPL R2, #5001303 : 
1 12 00376 BNEG  34§ ; 
2E 54 £9 00378 32$: BLBC FIT_OK, 34$ : 0875 
50 6E 04 C1 0037B ADDL3) #4, ~SCANP, RO : 
55 50 D1 0037F CMPL RO R5 : 
0D 18 00382 BLEQU 33$ F 
000000006 8F DD 00384 PUSHL #ANLOBJ$_FIELDFIT : 
00006 CF 01 FB 0038A CALLS #1, ANLSFORMAT_ERROR : 
54 94 0038F CLRB Ss F:LT_OK : 
15 54 £9 90391 33$: BLBC FIT"OK, 34$ : 0876 
00 BE DD 00394 PUSHL NP : 0877 
000000006 8F DD 00397 PUSHL #ANLOBJ$_OBJVALUE : 
02 DD 00390 PUSHL #2 : 
7E D4 0039F CLRL -(SP) ; 


a 


Nn 5 
OBJTIR = Analyze TIR/DBG/TBT Object Records 15-Sep-1984 23:44:41 AX-11 Bliss<-32 V4.0-74 Pp 7 
NLSOBJECT TR = Analyze TIR t neh nee Objec 12-88-1986 $7595 :85 LANALYZ-SRe OBITIR B3504 Neg 3 
nae a Te t on 
00475241 F D1 § A 34$: CMPL Ree #4674113 + 0882 
12 13 00380 BEQL 486-_«-35$ : 
00405953 BF 3 oi 0 Bg CPL Ree #5069139 : 
00534645 BF 3g D1 00 BB CMPL Re #5459525 : 
1 003¢ BNEG 38% : 
72 54 £9 003C4 358: BLBC FIT_OK, 38$ : 0887 
50 of gi C1 003¢7 ADDL3 #1, SCANP, RO : 
5 0 D1 003¢B CMPL RO, R5 : 
Op 18 bO5¢E BLEGU 368 : 
000000006 8F 0D 0030 PUSHL M#ANLOBJS$_FIELDFIT : 
00006 CF 01 FB 00306 CALLS #1, ANLSFORMAT_ERROR : 
54 94 0030B CLRB 3s FIT_O : 
59 54 £9 0030D 368: LBC FIT~O : 
04 AE 00 BE 9A 003E0 MOVZBL a@SCANP, WORK_DSC 3 
08 AE oF 01 C1 003E5 ADDL3 #1, SCANP, WORK_DSC+4 : 
4C 54 E9 OO3EA BLBC = FIT_OK, 38$ : 
50 04 AE 3C OO3ED MOVZWL WORR DSC, RO 3 
50 08 (C6 003F1 DIVL #8, RO : 
50 6E CO 003F4 ADDL SCANP, RO : 
50 D6 003F7 INCL R : 
55 50 D1 003F9 CMPL RO, RS : 
0D 18 003FC BLEGU 37$ : 
000000006 8F DD OO3FE PUSHL #ANLOBJ$_FIELDFIT : 
0000G CF 01 FB 00404 CALLS #1, ANLSFORMAT_ERROR : 
54 94 00409 CLRB FIT_OK ; 
28 54 €9 00408 378: BLBC FIT"OK, 38$ : 0888 
08 AE DD 0040E PUSHL WORR_DSC+4 : 0889 
7E 08 AE 3C 00411 MOVZWL WORK-DSC, =-(SP) : 
000000006 8F DD 00415 PUSHL #ANLOBJ$_OBJSYMBOL 3 
02 DD 00418 PUSHL #2 : 
7E D4 0041D CLRL -(SP) : 
0000G CF 05 FB 0041F CALLS #5, ANLSFORMAT_LINE : 
1F DD 00424 PUSHL #314 : 0890 
08 AE 9F 00426 PUSHAB WORK_DSC : 
0000G CF 02 FB 00429 CALLS #2, ANLSCHECK_SYMBOL 3 
50 04 AE 3C 0042E MOVZ2WL WORK _DSC, RO : 0891 
50 6E CO 00432 ADDL2 SCANP, R : 
6E 01 AO 9E 00435 MOVAB 1(RO), SCANP : 
00475241 8F 52 D1 00439 38$: CMPL R2, #4674113 : 0895 
40 12 00440 BNEQ 4 : 
3D 54 £9 00442 BLBC FIT_OK, 40$ : 0900 
50 6E 01 ¢€1 00445 ADDL3 #1,7~SCANP, RO ; 
55 50 D1 00449 CMPL RO, R5 : 
OD 1B 0044C BLEQU 39 : 
000000006 8F DD 0044E PUSHI. #ANLOBJ$_FIELDFIT : 
00006 CF 01 FB 00454 CALLS #1, ANLSFORMAT_ERROR : 
54 94 00459 CLRB FIT_OK : 
24 54 E9 00458 39$: BLBC FIT"OK, 40$ ; 0901 
7E 00 BE 9A 0045E MOVZBL a@SCANP, -(SP) : 0902 
00000000G 8F ODD 00468 PUSHL #ANLOBJ$_OBJTIRARGINDEX : 
02 DD 0046 PUSHL #2 ; 
7E D4 0046A CLRL -(SP) ; 
00006 CF 04 FB 0046C CALLS #4, ANLSFORMAT_LINE : 
6E D6 00471 INCL SCANP : 0903 


é 
OBJTIR OBJTIR = Analyze TIR/DBG/TBT ect Records 18.<° =1984 23:44:41 AX-11 Bliss-32 V4.0-74 o 
702-000 ANLSOBJECT_TIR = Analyze TIR ssociated Objec 127800= 1986 $7:95:28 ANALYZ.SRC oBsTIR.B30+1 oma 3 
56 DD 0047 PUSHL R6 3 0904 
046 AE 9F 0047 PUSHAB SCANP : 
03 DD 00478 PUSHL @# : 
00006 CF 9 FB O047A CALLS #3, ANLSOBJECT_ARGUMENT_DSC : 
00565856 &F gS BY bocke wos: COME” ebb anese : 0908 
B Ng S029 BNEQ rag : 
68 4 €9 00488 BLBC_ FIT_OK, 43 : 0910 
50 6 01 C1 0048 ADDL3 #1,~SCANP, RO : 
5 6 ¢ 0049 MOVZ2WL (R64), RS : 
55 67 CO 0049 ADDL2 (R7). R5 : 
55 50 01 00498 CMPL RO, RS : 
0D 18 00498 BLEGU 41$ : 
000000006 8F DD 0049D PUSHL M#ANLOBJS_FIELDFIT : 
0000G CF 01 FB 004A3 CALLS #1, ANLSFORMAT_ERROR ; 
54 94 004A8 CLRB Ss FL T_OK : 
49 54 £9 004AA 41$: LBC  FIT"OK, 43$ : 
04 «AE 00 BE 9A 004AD MOVZBL a@SCANP, WORK_DSC : 
08 AE 6£ 01 C1 00482 ADDL3 #1, SCANP, WORK_DSC+4 : 
3¢ 54 E9 00487 BLAC ~=s-_—«sFIT_OK, 43%$ : 
50 04 AE 3C 004BA MOVZWL WORK DSC, RO : 
50 08 (C6 004BE DIVL i : 
50 6— CO 004C1 ADDL2  SCANP, RO : 
50 D6 00464 INCL RO : 
55 66 3C 004C6 MOVZWL (R6), RS : 
55 67 CO 004C9 ADDL2 (R7). R5 : 
55 50 D1 004CC CMPL RO, RS ; 
0D 1B O04CF BLEQU 42 ; 
000000006 8F DD 00401 PUSHL #ANLOBJ$_FIELDFIT : 
0000G CF 01 FB 00407 CALLS #1, ANLSFORMAT_ERROR 3 
54 94 004DC CLRB Ss FL T_OK : 
15 54 €9 OO4DE 42$: BLBC  FITOK, 43$ + 0911 
04 AE SF 004E1 PUSHAB WORR_DSC : 0912 
02 DD 00464 PUSHL @ ; 
00006 CF 02 FB 004E6 CALLS #2, ANL$FORMAT_HEX ; 
50 04 AE 3C 004EB MOVZ2WL WORK_DSC, RO : 0913 
50 6E CO OOsEF ADDL2 SCANP, R ; 
6E 01 AO SE 004F2 MOVAB (RO). SCANP F 
00444056 BF 52 D1 004F6 43$: CMPL Re #4475990 : 0917 
6C 12 004FD BNEQ 47$ ; 
69 54 £9 OO4FF BLBC FIT OK. 47$ + 0920 
50 6E 02 €1 00502 ADDL3 #2,7SCANP, RO : 
55 66 3C 00506 MOVZ2WL (RO), RS ; 
55 67 CO 00509 DDL (R7). R5 ; 
55 50 D1 0050¢ CMPL = RO, RS F 
0D 1B 0050F BLEQU 44$ : 
000000006 8F DD 00511 PUSHL #ANLOBJS_FIELDFIT ; 
0000G CF 01 FB 00517 CALLS #1 ANLSFORMAT_ERROR s 
54 94 0051C CLRB Ss FI T_OK ; 
4A 54 €9 OOSIE 44$:  BLBC  FIT"OK, 47% : 0921 
52 6f D0 00521 Ov. s¢ > 0922 
7E 01 Ad 9A 00524 MOVZBL 1(R2). -(SP) : 
7E 62 9A 00528 MOVZBL (R2), -(SP) : 
000000006 8F oD 00528 USHL  #ANLOBJ$_OBJTIRVIELD ; 
02 DD 00531 PUSHL #2 ; 
7E D4 00533 CLRL. = (SP) F 
00006 CF 05 FB 00535 CALLS #5, ANLSFORMAT_LINE ; 


>." 


-o 


vOa-000 


; Routine Size: 


JTIR = Anal 


08 z 
ANLSOBJECT.TIR 


35 


1E 


- Analyze TIR 


3 
e TIR/DBG/TBT peject Records 1-56 
ssociated Objec Vang 08-1 98e 


1 62 9A 0053 
0 01 42 9A 00580 
1 50 £0 00941 
0 62 9A 00544 
0 08 CO 00547 
50 08 (6 0054A 
50 08 C4 00540 
iF D1 0055 
03 18 0055 
50 1F 0 0055 
50 51 D1 00558 
08 18 00558 
000000006 8F DD 00550 
00006 CF 01 FB 00563 
6 02 CO 00568 
0000" CF 05 00568 
0B 18 00S56F 
000000006 8F DD 00571 
00006 CF 01 FB 00577 
i2 53 91 0057¢ 
11 12 0057 
50 SA 9A 00581 
0000" CF 50 £0 00584 
000000006 8F DD 0058A 
28 11 00590 
42 8F 53 91 00592 
0B 12 00596 
50 5A 9A 00598 
0000" CF $0 £2 00598 
1¢ 11 005A1 
52 BF 53 91 005A3 
1g JF 005A7 
54 BF 53 91 005A9 
10 1A O0SAD 
02 58 91 OOSAF 
0B 12 00582 
000000006 8F 0D 00584 
00006 CF 01 FB O0SBA 
FAC 31 OOSBF 
04 005¢2 


Routine Base: $CODE$ + 0000 


45$: 


46$: 
47$: 


48$: 


49%: 


50$: 


ww 


AM 


3:4 
1:5 


MOVZBL 


241 AX-11 Bliss-32 V4.0-7 
:58 ANALYZ.SRC joairiR B32, 
(R2), RI 

1(R25, RO 

RO, Ri 

(R2), RO 

#8, RO 

#8. RO 

4 ; ie 

rat 

#31, RO 

R1, RO 

46$ 


eae ot OBJBADVIELD 
#1, A MA SEORAAT ERROR 


#2, SCAN 
STACK. DEPTH 
#ANLOBJ$_OBJBADPOP 
#1, ANLSFORMAT_ERROR 
R3. #18 
49 
LITERAL INDEX, RO 

0, LITERAL_DEF BITS, 52$ 
PANLOBIS OBJUNDEFL I? 
R3, #66 


LITERAL INDEX, RO 
LITERAL _DEF BITS, 52% 


RECORD_TYPE, #2 
52$ 


#ANLOBJ$_OBJNONT IRCMD 
$1. ANL$FORMAT_ERROR 


Page 3 


0923 


0924 


ww 
= 
ne 


= 
oe 


6 
$ 


OBJTIR = Analyze TIR/DBG/TBT Object Records 13. ep-1984 23:44:41 AX-11 Bliss-32 V4.0-742 Pa 0 
ANLSOBJECT_TIR_CLEAN = Check TIR Errors and Cle 10-8087 1 8c 1:52:58 LANALYZ-SRe OBJTIR.B32;1 = (as 
14a Rsbttl "ANLSOBJECT_TIR_CLEAN = Check TIR Errors and Clean Up" 

97 i Buncticnal Description: 

980 This routine is called at the end of each module to check for any 

0981 lobal TIR errors (e.g., stack not empty). It also cleans up for 

83 ¢ he next module. 

0984 Formal Parameters: 

84 non 

098 Implicit Inputs: 


PUPP SPVSV IIIS 
PAA AAN ANI 
—OOANOUEWN-O 


56 
56 


global data 
counted Outputs: 


MEWN OO OONOuUS 


Se Ge Se Ge Be Se Se Se Se Se Se Oe Be Be ee a thecte Se Ge Ge Ge Ge Ge pan nee Sete Gute Se Ge Ge Gee, Ge Se Se Ge oe 33 
eC 


DUD PV PUSS IV SUSI IV SVS STS 
SSSS SESS SSS sass 
-O0onN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: global data 
1 Returned Value: 
1 none 
995 1 
996 : Side Effects: 
99 -_ 
1000 1 
1002 ; global routine anl$object_tir_clean: novalue = begin 
100 
1O0e $ ! If the stack isn’t clean, issue an error message. 
1006 § if .stack_depth gtr 0 then é > 
44 anl$format_error(anlobj$_objbadpush,.stack_depth); 
Hs ; ! Now just clean it out anyway. 
191) 2 stack_depth = 0; 
1918 $ ! Clear all the Literal definition bits. 
Hy a 3 chSfill(%x'00", Zallocation(literal_def_bits), Literal_def_bits); 
1017 § return; 
1018 
1019 1 end; 


003C 00000 -ENTRY ANLSOBJECT TIR CLEAN, Save R2,R3.R4,R5 : 1001 
50 0000° CF 00 000¢ MOVL STACK_DEPTA, RO 3 1006 
0D 15 0000 LEQ 1$ : 
50 DD 00009 PUSHL RO : 1007 
00000000G 8F ODD Bone PUSHL #ANLOBJ$ OBJBADPUSH 3 
0000G CF 02 FB 00011 CALLS #2, ANLSFORMAT_ERROR : 
0000" CF be S006 1$ CLRL STACK DEPTH : 1011 
00 6E 00 2C OOOIA MOVCS #0, (SP), #0, #32, LITERAL_DEF_BITS : 1015 
0000° CF 0001F ; 


~o 


v06 ANLSOBJECT_TIR_CLEAN = Check TIR Errors and Cle 14-Sep-19 
04 00022 RET 


; Routine Size: 35 bytes, Routine Base: S$ CODES + 05¢3 


:58 ANALYZ.SRCJOBJTIR.B32;1 


3 238 13s0 1 

; 1021 0 end eludom 

; PSECT SUMMARY 

: Name Bytes Attributes 

: SOWNS 1060 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 
; SPLITS 511 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1510 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ee ie © ae eee ee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 20 0 581 00:01.0 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:OBJTIR/OBJ=OBJ$:O0BJTIR MSRC$:O0BJTIR/UPDATE=(ENH$: OBJTIR) 


; Size: 903056 + 1571 data bytes 


; Elapsed Time: 01:25.6 
: Lines/CPU Min: 2004 
; Locenne syste 24691 
3 Y Used: 442 pages 
: eee! ation Compiete 


pb LS OBJTIR = Tike TIR/DBG/TBT Object Records 18.55, on lene $7'8 41 AX-11 Bliss-32 V4.0-742 


P 31 
Seer (8) 


: 1019 


0007 vs H-BT13A-SE | : IPMENT CORPORATION 
WV i VAX/VMS V4.0 | -AND PROPRIETARY _ 


